Protected Sub TreeView1_DataBound(ByVal sender As Object, _
  ByVal e As System.EventArgs)
   TreeView1.CollapseAll()
   TreeView1.FindNode("Gwna").Expanded = True
   TreeView1.FindNode("Gwna/Finanse").Expanded = True
   TreeView1.FindNode("Gwna/Finanse/Giedy").Expanded = True
End Sub
